home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / halcn305.zip / TUTOR13.PAS < prev    next >
Pascal/Delphi Source File  |  1993-05-03  |  634b  |  25 lines
  1. Program Tutor13;
  2. uses
  3.    CRT,
  4.    GSOB_DBF,
  5.    GSOB_DBS,
  6.    GSOB_VAR;
  7. var
  8.    MyFile  : GSO_dBHandler;
  9.    MIndx   : integer;
  10. begin
  11.    ClrScr;
  12.    MyFile.Init('TUTOR1');
  13.    MyFile.Open;
  14.    MIndx := MyFile.IndexTo('TUTOR1LN','LASTNAME');
  15.    MyFile.GetRec(Top_Record);     {Get the first record in the file}
  16.    while not MyFile.File_EOF do   {Repeat until end-of-file}
  17.    begin
  18.       writeln(MyFile.FieldGet('LASTNAME'),' ',
  19.               MyFile.FieldGet('FIRSTNAME'),'  ',
  20.               MyFile.FieldGet('BIRTHDATE'));
  21.       MyFile.GetRec(Next_Record); {Get the next sequential record}
  22.    end;
  23.    MyFile.Close;
  24. end.
  25.